home *** CD-ROM | disk | FTP | other *** search
- ;
- ;
- ; ╔═══════════════════════════════════╗
- ; ║ QMODEM Pop-Up Menus ║
- ; ║ ║
- ; ║ Designed for use with Qmodem V2.0 ║
- ; ║ Mark F. Lewis ║
- ; ║ 06-MAR-86 ║
- ; ║ ║
- ; ║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║
- ; ║ This is the PCBOARD version ║
- ; ║ QMODEMPB.DEF ║
- ; ║ Compile with Microsoft's MAKEMENU ║
- ; ║ To use, type: ║
- ; ║ MENU QMODEMPB ║
- ; ║ QMODEM ║
- ; ║ MENU OFF ║
- ; ║ or place the above in a BAT file ║
- ; ║ ║
- ; ╚═══════════════════════════════════╝
- ;
- ; Set up initial labels for mouse commands
-
- begin leftb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
-
- ; -------------------- Left Button ---------------------------
-
- ; Start QModem if in init mode, else Main menu menu
-
- leftb: match 25,15,,"Qmodem",Keyspc,redlchk ;Check for initing
- redlchk: match 4,9,,"Re-Dial",dialmen,vchkl ;check for redial
- vchkl: match 5,5,,"Filename",keyspc,vchkn ;check for viewdir
- vchkn: match 2,6,,"View a file",keyspc,pcb1 :Check for viewdir
- pcb1: match 25,15,,"Main Board Command?",pcbmen,pcb2 ;Check for PCBoard
- pcb2: match 25,16,,"Main Board Command?",pcbmen,pcb3 ;Check for PCBoard
- pcb3: match 25,17,,"Main Board Command?",pcbmen,menu1 ;Check for PCBoard
-
-
- ; --------------------- Both buttons ------------------------
-
- ; Context-contingent cancel
-
- bothb: match 25,15,,"Qmodem",nothing,chkbth
- chkbth: match 1,28,,"Command",return,chkpbookb
- chkpbookb: match 1,12,,"Phone",keyx,keyesc :check for Phone Book
-
- ; -------------------- Mouse left -----------------------
-
- mousel: match 1,3,,"Strip / Convert",left,nothing ;check for xlate table
-
- ; ------------------- Mouse right -----------------------
-
- mouser: match 1,3,,"Strip / Convert",right,nothing ;check for xlate table
-
- ; --------------------- Mouse up -----------------------
-
- mouseu: match 25,6,,"PgUp",Pgup,chkpbooku ;check for scroll back
- chkpbooku: match 1,12,,"Phone",Pgup,stripcku :check for Phone Book
- stripcku: match 1,3,,"Strip / Convert",Up,nothing ;check for xlate table
-
- ; ------------------- Mouse down -----------------------
-
- moused: match 25,6,,"PgUp",PgDn,chkpbookd ;check for scroll back
- chkpbookd: match 1,12,,"Phone",PgDn,stripckd ;check for Phone book
- stripckd: match 1,3,,"Strip / Convert",down,nothing ;check for xlate table
-
- ; Initial menu displayed when left button pressed
-
- menu1: popup 1,24,bold
- text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
- text "║ --- Primary --- ║"
- text "║ Clear Screen Redial Last Number ║"
- text "║ Dial Phone DOS Shell ║"
- text "║ SCRIPT Execution Disk Directory ║"
- text "║ Hang-Up Modem Exit Qmodem ║"
- text "║ Change Baud Rates Secondary Menu ║"
- text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
- text "║ Download files Toggles Menu ║"
- text "║ Upload Files Capture File Toggle ║"
- text "║ Scroll Lost lines Back Send modem BREAK Signal ║"
- text "║ Add Linefeed Toggle Printer echo Toggle ║"
- text "║ Cancel Menu ║"
- text "║ ║"
- text "║ Select menu item with Right Button ║"
- text "║ Press Left button or Both Buttons to return ║"
- text "╚═══════════════════════════════════════════════════════╝"
- select 3,3,23,keyaltc
- select 4,3,23,keydial
- select 5,3,23,keyaltf
- select 6,3,23,keyalth
- select 7,3,23,keyaltp
- ;
- select 3,31,23,keyaltq
- select 4,31,23,setdos
- select 5,31,23,keyaltw
- select 6,31,23,exitact
- select 7,31,23,menu2
- ;
- select 9,3,23,pgdn
- select 10,3,23,pgup
- select 11,3,23,Up
- select 12,3,23,shfttab
- select 13,2,22
- ;
- select 9,31,23,menu3
- select 10,31,23,keycthm
- select 11,31,23,keyctnd
- select 12,31,23,keyctpt
- pend
- ;
- setdos: execute keyaltr,shellset
- shellset: assign shelb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
- shelb: popup 1,1,bold
- text "╔═[ DOS Shell ]════╗"
- text "║ Return to Qmodem ║"
- text "║ Cancel Menu ║"
- text "╚══════════════════╝"
- select 2,2,18,retshell
- select 3,2,18
- pend
- ;
- retshell: execute shellout,return,noshell
- noshell: assign leftb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
- ;
- menu2: popup 1,24,bold
- text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
- text "║ -- Secondary -- ║"
- text "║ Translate Table Change Sub-Dirs ║"
- text "║ Function Key Set View a File ║"
- text "║ Log Drive Change Delete a File ║"
- text "║ ║"
- text "║ Primary Menu ║"
- text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
- text "║ Download files Toggles Menu ║"
- text "║ Upload Files Capture File Toggle ║"
- text "║ Scroll Lost lines Back Send modem BREAK Signal ║"
- text "║ Add Linefeed Toggle Printer echo Toggle ║"
- text "║ Cancel Menu ║"
- text "║ ║"
- text "║ Select menu item with Right Button ║"
- text "║ Press Left button or Both Buttons to return ║"
- text "╚═══════════════════════════════════════════════════════╝"
- select 3,3,23,keyalta
- select 4,3,23,keyaltj
- select 5,3,23,keyaltl
- ;
- select 3,31,23,keyalto
- select 4,31,23,keyaltv
- select 5,31,23,keyalty
- select 7,31,23,menu1
- ;
- select 9,3,23,pgdn
- select 10,3,23,pgup
- select 11,3,23,Up
- select 12,3,23,shfttab
- select 13,2,22
- ;
- select 9,31,23,menu3
- select 10,31,23,keycthm
- select 11,31,23,keyctnd
- select 12,31,23,keyctpt
- pend
-
- menu3: popup 1,24,bold
- text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
- text "║ --- Toggles --- ║"
- text "║ Beeps and Bells ANSI Music Mode ║"
- text "║ Echo Split Screen Mode ║"
- text "║ ANSI Graphics Mode Screen Dump ║"
- text "║ Program Info Xon / Xoff ║"
- text "║ Secondary Menu ║"
- text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
- text "║ Download files Primary Menu ║"
- text "║ Upload Files Capture File Toggle ║"
- text "║ Scroll Lost lines Back Send modem BREAK Signal ║"
- text "║ Add Linefeed Toggle Printer echo Toggle ║"
- text "║ Cancel Menu ║"
- text "║ ║"
- text "║ Select menu item with Right Button ║"
- text "║ Press Left button or Both Buttons to return ║"
- text "╚═══════════════════════════════════════════════════════╝"
- select 3,3,23,keyaltb
- select 4,3,23,keyalte
- select 5,3,23,keyaltg
- select 6,3,23,keyalti
- ;
- select 3,31,23,keyaltm
- select 4,31,23,keyalts
- select 5,31,23,keyaltt
- select 6,31,23,keyaltz
- select 7,31,23,menu2
- ;
- select 9,3,23,pgdn
- select 10,3,23,pgup
- select 11,3,23,Up
- select 12,3,23,shfttab
- select 13,2,22
- ;
- select 9,31,23,menu1
- select 10,31,23,keycthm
- select 11,31,23,keyctnd
- select 12,31,23,keyctpt
- pend
-
- exitact: execute keyaltx,exitmen
-
- exitmen: popup 6,20,bold
- text "╔═[ Leave Qmodem ]════════════╗"
- text "║ Are you SURE? ║"
- text "║ ║"
- text "║ Yes ║"
- text "║ No ║"
- text "║ Exit with modem connected ║"
- text "╚═════════════════════════════╝"
- select 4,3,27,Keyy
- select 5,3,27,Keyn
- select 6,3,27,keyx
- pend
-
- dialmen: popup 12,8,bold
- text "╔═[ Re-Dial Action ]══╗"
- text "║ Cycle Call ║"
- text "║ Delete Call ║"
- text "║ Abort ║"
- text "║ Cancel Menu ║"
- text "╚═════════════════════╝"
- select 2,2,21,Keyc
- select 3,2,21,keyd
- select 4,2,21,keyesc
- select 5,2,21
- pend
-
- PCBmen: popup 1,1,bold
- text "╔═[ PC Board Main Menu ]═══════════════════════════════════════╗"
- text "║ Abandon Conference Join a Conference Read Messages ║"
- text "║ Bulletin Listing Kill a Message Trans. Protocol ║"
- text "║ Comment to SYSOP Locate Files(Name) Upload a File ║"
- text "║ Download a File Mode (Graphics) View Settings ║"
- text "║ Enter a Message New Files(Date) Write User Info ║"
- text "║ File Directories Operator Page Xpert On/Off ║"
- text "║ Goodbye (Hang-Up) Page Length Your Personal Mail ║"
- text "║ Help Functions Quick Msg Scan Script Questionnaire║"
- text "║ Initial Welcome Cancel Menu Zippy DIR Scan ║"
- text "║ Qmodem Menu ║"
- text "║ Select menu item with Right Button ║"
- text "║ Press Left button or Both Buttons to return ║"
- text "╚══════════════════════════════════════════════════════════════╝"
- select 2,2,20,keyar
- select 3,2,20,keybr
- select 4,2,20,keycr
- select 5,2,20,keydr
- select 6,2,20,keyer
- select 7,2,20,keyfr
- select 8,2,20,keygr
- select 9,2,20,keyhr
- select 10,2,20,keyir
- ;
- select 2,23,20,keyjr
- select 3,23,20,keykr
- select 4,23,20,keylr
- select 5,23,20,keymr
- select 6,23,20,keynr
- select 7,23,20,keyor
- select 8,23,20,keypr
- select 9,23,20,keyqr
- select 10,23
- select 11,23,20,menu1
- ;
- select 2,44,20,keyrr
- select 3,44,20,keytr
- select 4,44,20,keyur
- select 5,44,20,keyvr
- select 6,44,20,keywr
- select 7,44,20,keyxr
- select 8,44,20,keyyr
- select 9,44,20,keysr
- select 10,44,20,keyzr
- pend
-
- keyar: execute keya,return
- keybr: execute keyb,return
- keycr: execute keyc,return
- keydr: execute keyd,return
- keyer: execute keye,return
- keyfr: execute keyf,return
- keygr: execute keyg,return
- keyhr: execute keyh,return
- keyir: execute keyi,return
- keyjr: execute keyj,return
- keykr: execute keyk,return
- keylr: execute keyl,return
- keymr: execute keym,return
- keynr: execute keyn,return
- keyor: execute keyo,return
- keypr: execute keyp,return
- keyqr: execute keyq,return
- keyrr: execute keyr,return
- keysr: execute keys,return
- keytr: execute keyt,return
- keyur: execute keyu,return
- keyvr: execute keyv,return
- keywr: execute keyw,return
- keyxr: execute keyx,return
- keyyr: execute keyy,return
- keyzr: execute keyz,return
- keynsr: execute keyns,return
-
- ; Mouse help
-
- mousehlp: popup 2,1
- text "╔════════════════ MOUSE HELP ══════════════════╗"
- text "║ ║"
- text "║ Left button - Displays Main menu ║"
- text "║ Right button - Displays Mouse Help menu ║"
- text "║ Both buttons - Cancels action-in-progress ║"
- text "║ ║"
- text "║ Moving the mouse up,down,left, or right will ║"
- text "║ cause the cursor to move in that direction. ║"
- text "║ ║"
- text "╚═══════════════════════════════════════════════╝"
- select 1,19,11
- pend
- ;
- ; --- Key Commands ---
- shellout: TYPE "EXIT"
- keya: Type "A" ;A
- keyb: type "B" ;B
- keyc: Type "C" ;C
- keyd: Type "D" ;D
- keye: Type "E" ;E
- Keyf: Type "F" ;F
- keyg: Type "G" ;G
- Keyh: Type "H" ;H
- keyi: Type "I" ;I
- keyj: type "J" ;J
- keyk: Type "K" ;K
- keyl: type "L" ;L
- keym: Type "M" ;M
- keyn: Type "N" ;N
- keyo: Type "O" ;O
- keyp: type "P" ;P
- keyq: Type "Q" ;Q
- keyr: Type "R" ;R
- keys: Type "S" ;S
- keyt: Type "T" ;T
- keyu: Type "U" ;U
- keyv: type "V" ;V
- keyw: Type "W" ;W
- keyx: type "X" ;X
- keyy: type "Y" ;Y
- keyz: type "Z" ;Z
- keyns: type "NS" ;NS
- keyesc: type 27 ;Escape
- keyspc: type " " ;Space
- keyaltc: type 0,46
- keydial: type 0,32,13
- keyaltf: Type 0,33
- keyalth: type 0,35
- keyaltp: type 0,25
- keyaltq: type 0,16
- keyaltr: type 0,19
- keyaltw: type 0,17
- keyaltx: type 0,45
- shfttab: type 0,15
- keyalta: type 0,30
- keyaltj: type 0,36
- keyaltl: type 0,38
- keyalto: type 0,24
- keyaltv: type 0,47
- keyalty: type 0,21
- keyaltb: type 0,48
- keyalte: type 0,18
- keyaltg: type 0,34
- keyalti: type 0,23
- keyaltm: type 0,50
- keyalts: type 0,31
- keyaltt: type 0,20
- keyaltz: type 0,44
- keyctnd: type 0,117
- keyctpt: type 0,114
-
- NOTHING: NOTHING
-
- RETURN: TYPE 13 ;Return
- PGUP: TYPE 0,73
- PGDN: TYPE 0,81
- LEFT: TYPE 0,75
- RIGHT: TYPE 0,77
- UP: TYPE 0,72
- DOWN: TYPE 0,80
- keycthm: type 0,119